home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 13 / More Tiling Examples / Persian Tiling (KM) < prev   
Text File  |  1995-07-07  |  905b  |  61 lines
  1. {
  2.   A program written by Kevin Mitchell that uses
  3.   the multitasking capabilities of xTurtle to
  4.   draw a "tiling of the plane."
  5.  
  6.   Turn off Autoscrolling in the Options menu before
  7.   running this.
  8.  
  9.   This tiling was designed by the Persian artist
  10.   Mirza Akbar in the early 19th century.
  11. }
  12.  
  13. sub rArrow
  14.    penDown
  15.    move(1,0)
  16.    move(0,.5)
  17.    move(1,1)
  18.    move(.5,0)
  19.    move(0,1)
  20.    move(-1,0)
  21.    move(0,-.5)
  22.    move(-1,-1)
  23.    move(-.5,0)
  24.    move(0,-1)
  25. end sub
  26.  
  27. sub lArrow
  28.    penDown
  29.    move(0,-1)
  30.    move(.5,0)
  31.    move(1,-1)
  32.    move(0,-.5)
  33.    move(1,0)
  34.    move(0,1)
  35.    move(-.5,0)
  36.    move(-1,1)
  37.    move(0,.5)
  38.    move(-1,0)
  39. end sub
  40.  
  41. sub upArrows
  42.    fork(10)
  43.    penUp
  44.    moveTo(3*(forkNumber-5),0)
  45.    fork(10)
  46.    move(0,3*(forkNumber-5))
  47.    rArrow
  48. end sub
  49.  
  50. sub downArrows
  51.    fork(10)
  52.    penUp
  53.    moveTo(3*(forkNumber-5)+1.5,1)
  54.    fork(10)
  55.    move(0,3*(forkNumber-5))
  56.    lArrow
  57. end sub
  58.  
  59. upArrows
  60. downArrows
  61.